home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
h
/
highspeedpascalv2.0b.dms
/
highspeedpascalv2.0b.adf
/
Interface
/
Workbench.pas
< prev
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
1KB
|
75 lines
Unit Workbench;
Interface
Uses Intuition, AmigaDOS, Exec;
Type
tWBArg = Record
wa_Lock: LongInt;
wa_Name: pShortInt;
End;
tDrawerData = Record
dd_NewWindow: tNewWindow;
dd_CurrentX: LongInt;
dd_CurrentY: LongInt;
End;
pDrawerData = ^tDrawerData;
tDiskObject = Record
do_Magic: Integer;
do_Version: Integer;
do_Gadget: tGadget;
do_Type: ShortInt;
do_DefaultTool: pShortInt;
do_ToolTypes: ppShortInt;
do_CurrentX: LongInt;
do_CurrentY: LongInt;
do_DrawerData: pDrawerData;
do_ToolWindow: pShortInt;
do_StackSize: LongInt;
End;
tFreeList = Record
fl_NumFree: Integer;
fl_MemList: tList;
End;
pMsgPort = ^tMsgPort;
pWBArg = ^tWBArg;
tWBStartup = Record
sm_Message: tMessage;
sm_Process: pMsgPort;
sm_Segment: LongInt;
sm_NumArgs: LongInt;
sm_ToolWindow: pShortInt;
sm_ArgList: pWBArg;
End;
Const
WBDRAWER = $2;
MTYPE_PSTD = $1;
MTYPE_DISKCHANGE = $3;
MTYPE_TOOLEXIT = $2;
DRAWERDATAFILESIZE = $38;
GADGBACKFILL = $1;
WBGARBAGE = $5;
WBKICK = $7;
MTYPE_IOPROC = $6;
WBDISK = $1;
NO_ICON_POSITION = $80000000;
WBTOOL = $3;
MTYPE_CLOSEDOWN = $5;
MTYPE_TIMER = $4;
WBDEVICE = $6;
WBPROJECT = $4;
WB_DISKVERSION = $1;
WB_DISKMAGIC = $E310;
End.